perm filename INGL[M11,LCS]1 blob sn#374005 filedate 1978-08-01 generic text, type T, neo UTF8
SRATE←12800;
INS 0 1;  < INSTRUMENT 1 
 <  INST 1 (GLISS) SET P6 TO -1. P5 IS DESTINATION OF GLISS.  
OSC P4 P8 B2 F1 P30;MLT P6 P3 B3;AD2 P5 B3 B3;OSC B3 P8 B3 F3 P29;    
AD2 P3 B3 B3;OSC B2 B3 B3 F2 P28;OUT B3 B1;END;   
GEN 0 1 1 .01 0 .99 25 .99 400  0 511;<GEN INPUT MUST ALWAYS START NEW LINE
GEN 0 2 2 .7 0 .5 0 .4 5;<F2 , 3 HARMONICS (1,3,5)
GEN 0 1 3 0 0 1 511;<F3 PUTS LINE FROM 0 TO 1 IN 511 STEPS  
<GEN 0 3 3 0  1;<F3 PUTS LINE FROM 0 TO 1 IN 511 STEPS  
INSTRUMENTS;   
GLIS 1 8 FREQ 3 5   
END; 
 
  < IN1  .SCR  --  RANDOM NUMBER=     1
 PLAY;
 GLIS      0.00     .58 G/2   500.00 G*2  ,   -1.00   2.50
;PRINT P1;< GLIS    1
 FINISH; < IN1  .SCR